Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/wildcat/allfl_20.zip/ALLFLCFG.WCX

Wildcat! WCX | 1996-01-01 | 27KB | 998 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  27481 bytes  01/28/123  10:06:42pm
'! Code Segment Size  :25189 bytes
'! Data Segment Size  :27026 bytes
'! String Segment Size:2292 bytes
'! Compiled with WCC version 4.01

      Type Type42
        b0(1 To 4095) As Byte
      End Type

      Type Type41
        s0 As String*5
        s5 As String*3
        s8 As String*3
        s11 As String*79
        s90 As String*79
        s169 As String*67
        t42_236 As Type42
      End Type

      Type Type40
        s0 As String*65
        s65 As String*77
        s142 As String*59
      End Type

      Type Type39
      End Type

      Type Type38
        Filler0(1 To 3932) As Byte
        b3932 As Byte
      End Type

      Type Type37
        b0 As Byte
        s1 As String*160
      End Type

      Type Type36
        s0 As String*1
        s1 As String*65
        s66 As String*59
        s125 As String*65
        l190 As Long
      End Type

      Type Type35
        s0 As String*31
        t36_31(1 To 20) As Type36
        s3911 As String*20
        b3931 As Byte
        b3932 As Byte
      End Type

      Type Type34
        Filler0(1 To 66) As Byte
        s66 As String*59
      End Type

      Type Type33
        Filler0(1 To 31) As Byte
        t34_31(1 To 20) As Type34
        Filler2531(1 To 1401) As Byte
        b3932 As Byte
        b3933 As Byte
      End Type

      Type Type32
        s0 As String*31
        Filler31(1 To 3900) As Byte
        b3931 As Byte
        b3932 As Byte
      End Type

      Type Type31
        s0 As String*1
        s1 As String*65
        s66 As String*59
        s125 As String*65
        l190 As Long
      End Type

      Type Type30
        Filler0(1 To 31) As Byte
        t31_31(1 To 20) As Type31
        Filler3911(1 To 20) As Byte
        b3931 As Byte
      End Type

      Type Type29
        Filler0(1 To 26) As Byte
        w26 As Word
        Filler28(1 To 2) As Byte
        w30 As Word
      End Type

      Type Type28
        s0 As String*5
        s5 As String*12
        s17 As String*67
        b84 As Byte
        l85 As Long
        s89 As String*79
        s168 As String*12
        s180 As String*67
        s247 As String*79
        s326 As String*67
        t42_393 As Type42
        l4488 As Long
        b4492 As Byte
        w4493 As Word
      End Type

      Type Type27
        s0 As String*3
        s3 As String*8
        s11 As String*30
        s41 As String*25
        s66(1 To 10) As String*80
        l866 As Long
      End Type

      Type Type26
        s0 As String*25
        s25 As String*10
        s35 As String*15
        s50 As String*70
        s120 As String*70
      End Type

      Declare Function Func1572(s65534 As String) As Long
      Declare Function Func1684(s65534 As String) As Boolean
      Declare Function Func2207(l65534 As Long, l65532 As Long) As Long
      Declare Sub Sub2260(l65534 As Long, l65532 As Long)
      Declare Function Func2360(i65534 As Integer) As Boolean
      Declare Sub Sub2485(i65534 As Integer)
      Declare Sub Sub2622(i65534 As Integer)
      Declare Sub Sub2759(i65534 As Integer)
'!      Declare Sub Sub2861(s65534 As String)
'!      Declare Sub Sub2938
'!      Declare Sub Sub3012(s65534 As String)
'!      Declare Sub Sub3108
      Declare Sub Sub3133
      Declare Function Func3153(l65534 As Long) As Long
'!      Declare Function Func3610(s65534 As String) As Long
      Declare Sub Sub3746(t30_65534 As Type30, s65532 As String, s65530 As String, s65528 As String, s65526 As String, l65524 As Long)
      Declare Sub Sub4057(t32_65534 As Type32, s65532 As String)
      Declare Sub Sub4110(t33_65534 As Type33)
      Declare Sub Sub4364
      Declare Function Func4502(t35_65534 As Type35) As String
      Declare Sub Sub7173(s65534 As String)
      Declare Function Func7453(i65534 As Integer) As String
      Declare Function Func7625(s65534 As String, b65532 As Byte, i65530 As Integer, i65528 As Integer) As Integer
      Declare Sub Sub8113(i65534 As Integer, i65532 As Integer)
      Declare Sub Sub8660(i65534 As Integer)
      Declare Function Func8810(i65534 As Integer, i65532 As Integer) As Integer
      Declare Sub Sub9715
      Declare Sub Sub10566(t30_65534 As Type30, s65532 As String, i65530 As Integer, s65528 As String, l65526 As Long)
      Declare Sub Sub10726
      Declare Sub Sub11552
      Declare Function Func12594(i65534 As Integer) As Boolean
      Declare Function Func12619(i65534 As Integer, i65532 As Integer) As Integer
      Declare Function Func13170 As Integer
      Declare Sub Sub13686(s65534 As String)
      Declare Sub Sub14028(s65534 As String)
      Declare Sub Sub14522(s65534 As String, t41_65532 As Type41)
      Declare Sub Sub14889
      Declare Sub Sub16564
      Declare Sub Sub16811
      Declare Sub Sub20273
      Declare Sub Sub20743
      Declare Sub Sub22515
      Declare Sub Sub24327

      Dim t26_4463 As Type26
      Dim t27_4653 As Type27
      Dim s5533 As String
      Dim t28_5537 As Type28
      Dim b10032(0 To 7) As Byte
      Dim b10040(0 To 7) As Byte
      Dim s10048 As String
      Dim t38_10052 As Type38
      Dim s13986 As String
      Dim s13990 As String
      Dim i13994 As Integer
      Dim far13996 As FileAreaRecord
      Dim t39_14093 As Type39
      Dim l18588 As Long
      Dim t41_22695 As Type41

      Dim l65512_ As Long '! Temporary
      Dim s65516_ As String '! Temporary
      Dim l65518_ As Long '! Temporary
      Dim s65520_ As String '! Temporary
      Dim s65522_ As String '! Temporary
      Dim s65524_ As String '! Temporary
      Dim i65526_ As Integer '! Temporary
      Dim s65528_ As String '! Temporary
      Dim i65530_ As Integer '! Temporary
      Dim s65532_ As String

      t26_4463.s0 = "proFILES"
      t26_4463.s25 = "2.0"
      t26_4463.s35 = "01/01/96"
      t26_4463.s50 = "Copyright (C) 1996 Prasanth Pulavarthi. All Rights Reserved."
      t26_4463.s120 = t26_4463.s0 + " " + t26_4463.s25 + " for Wildcat! 4.01+"
      s5533 = ProgPath + "ALLFILES.DAT"
      t28_5537.s0 = t26_4463.s25
      b10032(0) = 1
      b10032(1) = 2
      b10032(2) = 4
      b10032(3) = 8
      b10032(4) = 16
      b10032(5) = 32
      b10032(6) = 64
      b10032(7) = 128
      b10040(0) = 254
      b10040(1) = 253
      b10040(2) = 251
      b10040(3) = 247
      b10040(4) = 239
      b10040(5) = 223
      b10040(6) = 191
      b10040(7) = 127
      Sub7173(("PROFILES.PRM"))
      s10048 = "PROFILES"
      If ParamCount > 0 Then
        s5533 = ParamStr(1)
      End If
      Do
  607
        Sub4057(t38_10052.??0, (Func7453((149 + 0))))
        Sub10566(t38_10052.??0, ("P"), (149 + 1), (""), (0))
        Sub10566(t38_10052.??0, ("O"), (149 + 3), (""), (0))
        Sub10566(t38_10052.??0, ("H"), (149 + 5), (""), (293))
        Sub10566(t38_10052.??0, ("A"), (149 + 7), (""), (0))
        If Not Exists(ProgPath + "ALLFILES.LIC") Then
          Sub3746(t38_10052.??0, ("R"), ("Register proFILES"), ("Runs the automated registration form creator"), (""), (0))
        End If
 1122
        Sub10566(t38_10052.??0, ("Q"), (149 + 9), (""), (0))
        s65532_ = UCase(Func4502(t38_10052.??0))
        If s65532_ = "P" Then
          Sub16811
        Else
 1251     If s65532_ = "O" Then
            Sub22515
          Else
 1280       If s65532_ = "H" Then
              Sub24327
            Else
 1309         If s65532_ = "A" Then
                MorePrompt(-1)
                If Not ReadBackOpen(ProgPath + "PROFILES.LOG") Then
                  Print Func7453((149 + 11))
                Else
 1389             Cls
 1392             Do While Not ReadBackTOF And Not DisplayStopped
                    Print ReadBackNext
                  Loop
                End If
 1423           ReadBackClose
                WaitEnter
                MorePrompt(0)
              Else
 1440           If s65532_ = "R" Then
                  Run "AFLREG.WCX", ""
                Else
 1476             If s65532_ = "Q" Then
                    Print Func7453((1)); t26_4463.s50
                    GoTo 1548
                    GoTo 1542
                  End If
                End If
              End If
            End If
          End If
        End If
 1542 Loop
 1548

'! Called 2 times
      Function Func1572(s65534 As String) As Long
        Dim l65524 As Long
        Dim i65528 As Integer

        l65524 = 0
        i65528 = Len(s65534)
 1601   Do While i65528 > 0
          l65524 = l65524 + Asc(Mid(s65534, i65528, 1))
          i65528 = i65528 - 1
        Loop
 1666   Func1572 = l65524
      End Function

'! Called 2 times
      Function Func1684(s65534 As String) As Boolean
        Dim s65513 As String '! Temporary
        Dim l65517 As Long
        Dim s65519 As String '! Temporary
        Dim i65521 As Integer
        Dim s65523 As String
        Dim i65527 As Integer
        Dim l65529 As Long

        Func1684 = 0
        If Exists(ProgPath + s65534 + ".LIC") Then
          Open ProgPath + s65534 + ".LIC" For Random As 1 Len = 880 '! This value should probably be replaced with a "SizeOf" expression
          Get 1, -1, t27_4653 '! 880 bytes
          Close 1
          If t27_4653.s0 <> "LIC" Then
          Else
 1804       If t27_4653.s3 <> s65534 Then
            Else
 1834         If UCase(t27_4653.s11) <> UCase(MakeWild.BBSName) Then
              Else
 1874           If UCase(t27_4653.s41) <> UCase(MakeWild.SysopName) Then
                Else
 1914
                  l65529 = Func1572((t27_4653.s0 + t27_4653.s3 + t27_4653.s11 + t27_4653.s41))
 2004             For i65527 = 1 To 10 Step 1
                    s65523 = t27_4653.s66(i65527)
                    l65529 = l65529 + Func1572((s65523))
                  Next
 2158             If l65529 <> t27_4653.l866 Then
                  Else
 2187               Func1684 = -1
                  End If
                End If
              End If
            End If
          End If
        End If
 2195
      End Function

'! Called 9 times
      Function Func2207(l65534 As Long, l65532 As Long) As Long
        Func2207 = 0
        If l65534 And l65532 Then
          Func2207 = -1
        End If
 2252
      End Function

'! Called 14 times
      Sub Sub2260(l65534 As Long, l65532 As Long)
        Dim l65524 As Long '! Temporary
        Dim l65528 As Long '! Temporary

        If Func2207((l65534), (l65532)) Then
          FlagClear l65534, l65532
        Else
 2342     FlagSet l65534, l65532
        End If
 2357
      End Sub

'! Called 3 times
      Function Func2360(i65534 As Integer) As Boolean
        If (t28_5537.t42_393(i65534 Div 8 + 1).b0 And b10032(i65534 Mod 8)) <> 0 Then
          Func2360 = -1
        Else
 2471     Func2360 = 0
        End If
 2477
      End Function

'! Called 2 times
      Sub Sub2485(i65534 As Integer)
        t28_5537.t42_393(i65534 Div 8 + 1).b0 = t28_5537.t42_393(i65534 Div 8 + 1).b0 Or b10032(i65534 Mod 8)
      End Sub

'! Called 1 time
      Sub Sub2622(i65534 As Integer)
        t28_5537.t42_393(i65534 Div 8 + 1).b0 = t28_5537.t42_393(i65534 Div 8 + 1).b0 And b10040(i65534 Mod 8)
      End Sub

'! Called 4 times
      Sub Sub2759(i65534 As Integer)
        Dim i65532 As Integer '! Temporary

        If Func2360((i65534)) Then
          Sub2622((i65534))
        Else
 2832
          Sub2485((i65534))
        End If
 2858
      End Sub

'! Called 0 times
'!      Sub Sub2861(s65534 As String)
'!        Dim i65532 As Integer

'!        i65532 = FreeFile
'!        Open ProgPath + "PROFILES.LOG" For Append As i65532
'!        Print #i65532, "      * "; s65534
'!        Close i65532
'!      End Sub

'! Called 0 times
'!      Sub Sub2938
'!        Dim i65534 As Integer

'!        i65534 = FreeFile
'!        Open ProgPath + "PROFILES.LOG" For Append As i65534
'!        Print #i65534, String(79, "-")
'!        Close i65534
'!      End Sub

'! Called 0 times
'!      Sub Sub3012(s65534 As String)
'!        Dim t65528 As Time
'!        Dim i65532 As Integer

'!        i65532 = FreeFile
'!        CurrentTime t65528
'!        Open ProgPath + "PROFILES.LOG" For Append As i65532
'!        Print #i65532, FormatTime(t65528, "hh:mm"); " "; s65534
'!        Close i65532
'!      End Sub

'! Called 0 times
'!      Sub Sub3108
'!        ActivityLog ProgName + " ERROR - See PROFILES.LOG for info."
'!      End Sub

'! Called 5 times
      Sub Sub3133
        Delay 0
      End Sub

'! Called 2 times
      Function Func3153(l65534 As Long) As Long
        Dim l65439 As Long
        Dim l65443 As Long
        Dim i65447 As Integer
        Dim b65449 As Byte
        Dim s65454 As String
        Dim s65458 As String
        Dim l65462 As Long
        Dim s65466 As String*32
        Dim t29_65498 As Type29

        i65447 = FreeFile
        Open ProgPath + s10048 + ".HLP" For Random As i65447 Len = 32 '! This value should probably be replaced with a "SizeOf" expression
        If l65534 > LOF(i65447) Then
          Close i65447
          Func3153 = - 1
          DisplayPrompt 16
          WaitEnter
        Else
 3258     Get i65447, l65534, t29_65498 '! 32 bytes
 3328     For l65462 = l65534 + 1 To l65534 + 1 + t29_65498.w26 Step 1
            Get i65447, l65462, s65466 '! 32 bytes
            s65458 = s65458 + s65466
            b65449 = InStr(s65458, Chr(13) + Chr(10))
 3436       Do While b65449 > 0
              s65454 = Left(s65458, b65449)
              Print s65454
              s65458 = Mid(s65458, b65449 + 2, Len(s65458))
              b65449 = InStr(s65458, Chr(13) + Chr(10))
            Loop
 3531     Next
 3554     Close i65447
          WaitEnter
          Func3153 = t29_65498.w26 + t29_65498.w30
        End If
 3590
      End Function

'! Called 0 times
'!      Function Func3610(s65534 As String) As Long
'!        Func3610 = - 1
'!        Open ProgPath + s10048 + ".HLP" For Random As 1 Len = 32 '! This value should probably be replaced with a "SizeOf" expression
'!        IndexOpen(ProgPath + s10048 + ".IDX")
'!        s65534 = Pad(UCase(s65534), 15)
'!        If IndexLookUp(s65534) = s65534 Then
'!          Func3610 = IndexNextRef
'!        End If
'! 3730   Close 1
'!        IndexClose
'!      End Function

'! Called 3 times
      Sub Sub3746(t30_65534 As Type30, s65532 As String, s65530 As String, s65528 As String, s65526 As String, l65524 As Long)
        Inc t30_65534.b3931
        t30_65534.t31_31(t30_65534.b3931).s0 = s65532
        t30_65534.t31_31(t30_65534.b3931).s1 = s65530
        t30_65534.t31_31(t30_65534.b3931).s66 = s65528
        t30_65534.t31_31(t30_65534.b3931).s125 = s65526
        t30_65534.t31_31(t30_65534.b3931).l190 = l65524
      End Sub

'! Called 8 times
      Sub Sub4057(t32_65534 As Type32, s65532 As String)
        t32_65534.s0 = s65532
        t32_65534.b3931 = 0
        t32_65534.b3932 = 1
      End Sub

'! Called 7 times
      Sub Sub4110(t33_65534 As Type33)
        MorePrompt(0)
        Print "@NOPAUSE@";
        Print Chr(27) + "[s";
        Locate 5, 1
        Locate 5 + t33_65534.b3933 - 1, 1
        Print "   "
        Locate 5 + t33_65534.b3932 - 1, 1
        Print " @0C@"; Chr(16)
        Locate User.LinesPerPage, 1
        Print "@1F@ " + Pad(t33_65534.t34_31(t33_65534.b3932).s66, 59) + "@07@";
        Print Chr(27) + "[u";
        t33_65534.b3933 = t33_65534.b3932
      End Sub

'! Called 14 times
      Sub Sub4364
        Dim l65528 As Long
        Dim i65532 As Integer
        Dim i65534 As Integer

 4406   For i65534 = 5 To User.LinesPerPage - 1 Step 1
          Locate i65534, 1
          ClrEOL
        Next
 4492   Locate 5, 1
      End Sub

'! Called 8 times
      Function Func4502(t35_65534 As Type35) As String
        Dim l65509 As Long '! Temporary
        Dim l65513 As Long
        Dim i65517 As Integer
        Dim i65519 As Integer
        Dim s65521 As String
        Dim i65527 As Integer
        Dim o65529 As Boolean

 4511   o65529 = 0
        Do
 4517     Cls
          Print Chr(27) + "[s";
          Locate User.LinesPerPage, 1
          Print "@1F@ " + LeftPad(" │ Press ? for help", 78) + " @07@";
          Print Chr(27) + "[u";
          SubText 1, t26_4463.s0
          SubText 2, t26_4463.s25
          SubText 3, Pad(t35_65534.s0, 31)
          SubText 4, t26_4463.s35
          Print "@71@ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ";
          Print "@71@  @1F@  @SUB1@ @SUB2@  @07@ @71@ @1F@  @SUB3@  @07@ @70@ @1F@  Compiled: @SUB4@  @07@ @70@ ";
          Print "@70@  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ";
          Locate 5, 1
          t35_65534.s3911 = ""
 4737     For i65527 = 1 To t35_65534.b3931 Step 1
            t35_65534.s3911 = t35_65534.s3911 + t35_65534.t36_31(i65527).s0
            SubText 1, t35_65534.t36_31(i65527).s125
            Print "@07@   @09@[@0F@"; t35_65534.t36_31(i65527).s0; "@09@] @0B@"; t35_65534.t36_31(i65527).s1
          Next
 5035     Sub4110(t35_65534.s0)
          Print
          Print "@07@Use your arrow keys to move cursor. Press ENTER or the hotkey to select."
          Print "@0E@Your command >> @0F@";
          Do
            Do
 5066         s65521 = UCase(InKey(1213417543))
            Loop Until s65521 <> ""
            i65527 = Asc(s65521)
            If s65521 = Chr(27) Or s65521 = Chr(0) Then
              Do
 5139           s65521 = InKey(1213417543)
                If s65521 <> "" Then
                  i65527 = Asc(s65521) + 1000
                End If
 5185         Loop Until s65521 = ""
            End If
 5202       i65519 = i65527
            If i65519 = 1077 Then GoTo 5276
            If i65519 = 1080 Then GoTo 5276
            If i65519 = 1066 Then GoTo 5276
            If i65519 = 1067 Then
 5276         Inc t35_65534.b3932
              If t35_65534.b3932 > t35_65534.b3931 Then
                t35_65534.b3932 = 1
              End If
 5335         Sub4110(t35_65534.s0)
            Else
 5352         If i65519 = 1075 Then GoTo 5416
              If i65519 = 1072 Then GoTo 5416
              If i65519 = 1065 Then GoTo 5416
              If i65519 = 1068 Then
 5416           Dec t35_65534.b3932
                If t35_65534.b3932 < 1 Then
                  t35_65534.b3932 = t35_65534.b3931
                End If
 5475           Sub4110(t35_65534.s0)
              Else
 5492           If i65519 = Asc("?") Then
                  o65529 = -1
                  Print Chr(27) + "[s";
                  Locate User.LinesPerPage, 1
                  Print "@1F@ " + LeftPad(" │ ESC to exit help", 78) + " @07@";
                  Print Chr(27) + "[u";
                  MoveLeft 80
                  ClrEOL
                  Print "@0E@Select the command you need help with >> @0F@";
                  Sub4110(t35_65534.s0)
                Else
 5630             If i65519 = 13 Then
                    Func4502 = t35_65534.t36_31(t35_65534.b3932).s0
                    Print "@0F@"; t35_65534.t36_31(t35_65534.b3932).s0
                    If o65529 Then
                      Sub4364
                      SubText 1, t35_65534.t36_31(t35_65534.b3932).s125
                      Print "@09@[@0F@"; t35_65534.t36_31(t35_65534.b3932).s0; "@09@] @0B@"; t35_65534.t36_31(t35_65534.b3932).s1
                      Print
                      If t35_65534.t36_31(t35_65534.b3932).l190 = 0 Then
                        If t35_65534.t36_31(t35_65534.b3932).s66 = "" Then
                          DisplayPrompt 16
                        Else
 6088                     Print "@0E@"; t35_65534.t36_31(t35_65534.b3932).s66
                        End If
 6151                   Print
                        WaitEnter
                      Else
 6162
                        Func3153((t35_65534.t36_31(t35_65534.b3932).l190))
                      End If
 6233                 GoTo 4511
                    Else
 6245                 GoTo 7158
                    End If
 6251             Else
 6257               If i65519 = 27 Then
                      If o65529 Then
                        o65529 = 0
                        Print Chr(27) + "[s";
                        Locate User.LinesPerPage, 1
                        Print "@1F@ " + LeftPad(" │ Press ? for help", 78) + " @07@";
                        Print Chr(27) + "[u";
                        MoveLeft 80
                        ClrEOL
                        Print "@0E@Your command >> @0F@";
                        Sub4110(t35_65534.s0)
                      Else
 6398                   t35_65534.b3932 = t35_65534.b3931
                        Sub4110(t35_65534.s0)
                        Func4502 = t35_65534.t36_31(t35_65534.b3931).s0
                        Print "@0F@"; t35_65534.t36_31(t35_65534.b3931).s0
                        GoTo 7158
                      End If
 6550               Else
 6556                 If InStr(t35_65534.s3911, s65521) > 0 Then
                        t35_65534.b3932 = InStr(t35_65534.s3911, s65521)
                        Sub4110(t35_65534.s0)
                        Func4502 = s65521
                        Print "@0F@"; s65521
                        If o65529 Then
                          Sub4364
                          SubText 1, t35_65534.t36_31(t35_65534.b3932).s125
                          Print "@09@[@0F@"; t35_65534.t36_31(t35_65534.b3932).s0; "@09@] @0B@"; t35_65534.t36_31(t35_65534.b3932).s1
                          Print
                          If t35_65534.t36_31(t35_65534.b3932).l190 = 0 Then
                            If t35_65534.t36_31(t35_65534.b3932).s66 = "" Then
                              DisplayPrompt 16
                            Else
 6983                         Print "@0E@"; t35_65534.t36_31(t35_65534.b3932).s66
                            End If
 7046                       Print
                            WaitEnter
                          Else
 7057
                            Func3153((t35_65534.t36_31(t35_65534.b3932).l190))
                          End If
 7128                     GoTo 4511
                        Else
 7140                     GoTo 7158
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
 7146     Loop
        Loop
 7158
      End Function

'! Called 1 time
      Sub Sub7173(s65534 As String)
        If User.Language <> "" Then
          If Exists(MakeWild.LanguagePath + User.Language + "\" + s65534) Then
            Open MakeWild.LanguagePath + User.Language + "\" + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression
            GoTo 7450
          End If
        End If
 7314   If Exists(MakeWild.LanguagePath + s65534) Then
          Open MakeWild.LanguagePath + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression
          GoTo 7450
        End If
 7382   Error 10
        Catch 10
          Print "Unable to open prompt file: "; s65534
          ActivityLog ProgName + " - Unable to open prompt file: " + s65534
          WaitEnter
          End
        GoTo 7450
 7450
      End Sub

'! Called 67 times
      Function Func7453(i65534 As Integer) As String
        Dim s65365 As String
        Dim t37_65369 As Type37

        If RIPEnabled Then
          i65534 = i65534 + LOF(9) / 2
        End If
 7502   Get 9, i65534, t37_65369 '! 161 bytes
        s65365 = Left(t37_65369.s1, t37_65369.b0)
        If Left(s65365, 2) = "<<" Then
          DisplayFile(Mid(s65365, 3, Len(s65365) - 2))
          Func7453 = ""
        Else
 7602     Func7453 = s65365
        End If
 7610
      End Function

'! Called 2 times
      Function Func7625(s65534 As String, b65532 As Byte, i65530 As Integer, i65528 As Integer) As Integer
        Dim l65512 As Long
        Dim i65516 As Integer
        Dim i65518 As Integer
        Dim o65520 As Boolean
        Dim o65521 As Boolean
        Dim i65522 As Integer
        Dim i65524 As Integer

        i65524 = 0
        o65521 = 0
        o65520 = 0
 7685   For i65518 = b65532 To Len(s65534) Step 1
          If Mid(s65534, i65518, 1) = "," Then
            GoTo 8008
          Else
 7776       If Mid(s65534, i65518, 1) = " " Then
              GoTo 8008
            Else
 7817         If Mid(s65534, i65518, 1) = "-" Then
                If o65521 = -1 Then
                  o65520 = -1
                End If
 7870           i65530 = i65524
                i65524 = 0
                o65521 = -1
              Else
 7902           If Not o65520 Then
                  i65522 = Val(Mid(s65534, i65518, 1))
                  If i65522 >= 0 And i65522 <= 9 Then
                    i65524 = i65524 * 10 + i65522
                  End If
                End If
              End If
            End If
          End If
 7985   Next
 8008   If o65520 Then
          i65530 = 0
          i65528 = 0
          i65524 = 0
        Else
 8047     If o65521 Then
            i65528 = i65524
            i65524 = - 1
          End If
        End If
 8079   b65532 = i65518 + 1
        Func7625 = i65524
      End Function

'! Called 1 time
      Sub Sub8113(i65534 As Integer, i65532 As Integer)
        Dim i65421 As Integer '! Temporary
        Dim l65423 As Long
        Dim i65427 As Integer
        Dim far65433 As FileAreaRecord
        Dim i65530 As Integer

        DisplayPrompt 1129
        Print
        Print
 8163   For i65530 = i65534 To i65532 Step 1
          GetFileArea(far65433, i65530)
          If Func12594((i65530)) Then
            SubText 1, LeftPad(Str(i65530), 5)
          Else
 8279
            SubText 1, Func7453((1)) + LeftPad(Str(i65530), 5)
          End If
 8320
          If Func2360((i65530)) And Func12594((i65530)) Then
            SubText 2, "*"
          Else
 8392       SubText 2, " "
          End If
 8402
          If Func12594((i65530)) Then
            SubText 3, Pad(far65433.Name, 31 + Len(far65433.Name) - AtLen(far65433.Name))
          Else
 8476
            SubText 3, Func7453((1)) + Pad(far65433.Name, 31 + Len(far65433.Name) - AtLen(far65433.Name))
          End If
 8537     DisplayPrompt 829
          Sub3133
        Next
 8572   Print
        SubText 1, "1"
        SubText 2, Str(MakeWild.MaxFileAreas)
        If i65534 > 1 Then
          DisplayPrompt 1313
        Else
 8631     DisplayPrompt 1312
        End If
 8637   Print Chr(27) + "[s";
      End Sub

'! Called 3 times
      Sub Sub8660(i65534 As Integer)
        Dim i65532 As Integer '! Temporary

        If i65534 Mod 2 = 0 Then
          Locate 2 + i65534 Div 2, 48
        Else
 8715     Locate 3 + i65534 Div 2, 8
        End If
 8735
        If Func2360((i65534)) Then
          Print "@0C@*";
        Else
 8782     Print " ";
        End If
 8791   Print Chr(27) + "[u";
      End Sub

'! Called 1 time
      Function Func8810(i65534 As Integer, i65532 As Integer) As Integer
        Dim i65501 As Integer '! Temporary
        Dim l65503 As Long
        Dim s65505 As String '! Temporary
        Dim i65507 As Integer '! Temporary
        Dim l65509 As Long
        Dim i65511 As Integer '! Temporary
        Dim i65513 As Integer '! Temporary
        Dim i65515 As Integer
        Dim i65517 As Integer
        Dim b65519 As Byte
        Dim s65520 As String
        Dim s65524 As String
        Dim i65528 As Integer

        Sub8113((i65534), (i65532))
        Do
 8865     s65524 = InputMask("", String(10, "X"), "", 1213417543)
          s65520 = UCase(s65524)
          If s65520 = "C" Then GoTo 8942
          If s65520 = "" Then
 8942       Func8810 = -1
            GoTo 9699
          Else
 8962       If s65520 = "N" Then
              Func8810 = -3
              GoTo 9699
            Else
 8999         If s65520 = "P" Then
                If i65534 > 1 Then
                  Func8810 = -2
                  GoTo 9699
                End If
 9047         Else
 9053           If s65520 = "S" Then GoTo 9087
                If s65520 = "L" Then
 9087             Func8810 = -4
                  GoTo 9699
                Else
 9107             If s65520 = "A" Then
 9153               For i65528 = 1 To MakeWild.MaxFileAreas Step 1
                      If Func12594((i65528)) Then
                        Sub2759((i65528))
                        Sub8660((i65528))
                      End If
 9281               Next
 9304             Else
 9310               b65519 = 1
 9317               Do While b65519 <= Len(s65524)
                      i65528 = Func7625((s65524), b65519, i65517, i65515)
                      If i65528 < 0 Then
 9418                   For i65528 = i65517 To i65515 Step 1
                          If Func12594((i65528)) Then
                            Sub2759((i65528))
                            Sub8660((i65528))
                          End If
 9546                   Next
 9569                 Else
 9575                   If i65528 >= 1 And i65528 <= MakeWild.MaxFileAreas Then
                          If Func12594((i65528)) Then
                            Sub2759((i65528))
                            Sub8660((i65528))
                          End If
                        End If
                      End If
 9687               Loop
                  End If
                End If
              End If
            End If
          End If
 9693   Loop
 9699
      End Function

'! Called 2 times
      Sub Sub9715
        Dim i65504 As Integer '! Temporary
        Dim i65506 As Integer '! Temporary
        Dim l65508 As Long
        Dim i65512 As Integer
        Dim i65514 As Integer
        Dim i65516 As Integer
        Dim b65518 As Byte
        Dim i65519 As Integer
        Dim i65521 As Integer
        Dim i65523 As Integer
        Dim s65525 As String
        Dim o65529 As Boolean
        Dim i65530 As Integer
        Dim s65532 As String

        o65529 = -1
        Do
 9732     SubText 1, "1"
          SubText 2, Str(MakeWild.MaxFileAreas)
          DisplayPrompt 1217
          Input s65532
          s65525 = UCase(s65532)
          If s65525 = "" Then
 9829       For i65530 = 1 To MakeWild.MaxFileAreas Step 1
              If Func12594((i65530)) Then
                Sub2485((i65530))
              End If
 9933       Next
 9956     Else
 9962       If s65525 = "Q" Then
              GoTo 10555
            Else
 9991         If s65525 = "H" Then
                DisplayHelp "LISTFC.BBS"
                WaitEnter
                o65529 = 0
              Else
10031           If s65525 = "L" Then
                  i65523 = 1
                  Do
10055               i65521 = i65523 - 1 + (User.LinesPerPage - 5) * 2
                    If i65521 > MakeWild.MaxFileAreas Then
                      i65521 = MakeWild.MaxFileAreas
                    End If
10127
                    i65519 = Func8810((i65523), (i65521))
                    If i65519 = -1 Then
                      i65523 = i65523 + (User.LinesPerPage - 5) * 2
                    Else
10226                 If i65519 = -2 Then
                        i65523 = i65523 - (User.LinesPerPage - 5) * 2
                      Else
10278                   If i65519 = -4 Then
                          o65529 = 0
                          GoTo 10347
                          GoTo 10312
                        End If
                      End If
                    End If
10312               If i65523 > MakeWild.MaxFileAreas Then
                      GoTo 10347
                    End If
10341             Loop
10347           Else
10353             b65518 = 1
10360             Do While b65518 <= Len(s65532)
                    i65530 = Func7625((s65532), b65518, i65516, i65514)
                    If i65530 >= 1 And i65530 <= MakeWild.MaxFileAreas Then